setwd("C:/Users/Camila Hohlenwerger/Desktop/aula4.exercicio_aula5")
esaligna<- read.table(file="esaligna.csv", header=TRUE, sep=",", dec=".", as.is=TRUE)
esaligna
par(mfrow=c(1,2))
boxplot(esaligna$dap~esaligna$talhao)
mtext("a", side=4, line=0.9, at=20,cex=2, family="serif")
esaligna$talhao<- as.factor(esaligna$talhao) #mudou pra fator dentro da tabela.


mediatalhao<-tapply(X=esaligna$dap, INDEX=esaligna$talhao, FUN=mean)
sd<- tapply(X=esaligna$dap, INDEX=esaligna$talhao, FUN=sd)
sd
matrix<- matrix(c(mediatalhao, sd), ncol=2)
matrix
mediatalhao
plot(matrix[,1], xlab="talho", ylab="dap", ylim=c(5,25), xlim=c(1,6))
segments(x0=c(1:6) , y0=mediatalhao-sd, x1=c(1:6), y1=mediatalhao+sd)
mtext("b", side=4, line=0.9, at=20,cex=2, family="serif")
